Inside Mac Games Volume 1

home *** CD-ROM | disk | FTP | other *** search

/ Inside Mac Games Volume 1 / Inside Mac Games Volume 1.iso / Shareware / Arcade / RoboWar / Tournament IV / Sapphire / Sapphire

Wrap

Text File | 1992-05-04 | 8.3 KB | 508 lines | [RobW/RWAR]

################## # Sapphire ################## # # ver. ZM8(CB20) # The Gembots # from the mine of # Andrew Diamanduros # designer and programmer # Columbia Univ. Dept Mico. # 701 West 168th ST. # New York, New York, 10032 # # May 1992 # 1992 - Forth RoboWar Tournament entry # # E-Mail: # American Online - Blade99 # # Many Thanks to the great programers # who showed me the way - # David Harris # Tom Morrison # Dave Gagnon # Josh Goldfoot # John Baylis # Chris Lord # David James # Shawn Hunter # ect. ect. # # Start: y 20 < ReachTop if y 40 < SeekTop1 if 0 aim' store range kill3 if 0 speedx' store -6 speedy' store SeekTop: y 15 < Up if y 40 < SeekTop1 if collision crashn if 315 aim' store range kill3 if 0 aim' store range kill3 if 45 aim' store range kill3 if SeekTop jump SeekTop1: -2 speedy' store 0 speedx' store y 20 < ReachTop if y 15 < Up if collision crashn if SeekTop1 jump ReachTop: 0 speedy' store x 250 > SeekCor1 if 6 speedx' store y 15 < Up if 90 aim' store range kill3 if 180 aim' store range kill3 if 270 aim' store range kill3 if 265 aim' store range kill3 if SeekCor: x 250 > SeekCor1 if y 15 < Up if collision crash if 90 aim' store range kill3 if 180 aim' store range kill3 if 270 aim' store range kill3 if 265 aim' store range kill3 if SeekCor jump SeekCor1: 2 speedx' store x 280 > ReachCor if x 283 > Back if collision crash if SeekCor1 jump ReachCor: x 283 > Back if 0 speedx' store 0 aim' store drop drop downa: 0 speedx' store 6 speedy' store energy 95 > mr1 if downb: y 265 > downc if y 285 > back2 if energy 95 > mr1 if collision crashs if 180 aim' store range kill3 if 0 aim' store range kill3 if downb jump downc: 0 speedx' store 0 speedy' store energy 95 > mr if main: 270 aim' store range kill0 if 275 aim' store range kill0 if 280 aim' store range kill0 if 285 aim' store range kill0 if 290 aim' store range kill0 if 295 aim' store range kill0 if 300 aim' store range kill0 if 310 aim' store range kill0 if 315 aim' store range kill0 if 320 aim' store range kill0 if 325 aim' store range kill0 if 330 aim' store range kill0 if 335 aim' store range kill0 if 340 aim' store range kill0 if 345 aim' store range kill0 if 350 aim' store range kill0 if 355 aim' store range kill0 if 270 aim' store range kill0 if na: sync sync sync -15 movex' store nb: -1 speedx' store -6 speedy' store 0 aim' store range killn if 90 aim' store range killn if 270 aim' store range killn if energy 95 > mr if nl: y 25 < sb if x 20 < cb if energy 60 > mr if collision crashn if y 25 < sb if x 20 < cb if energy 60 > mr if collision crashn if y 25 < sb if x 20 < cb if energy 60 > mr if collision crashn if y 25 < sb if x 20 < cb if energy 60 > mr if collision crashn if nl jump sb: -1 speedx' store 6 speedy' store 180 aim' store range kills if 90 aim' store range kills if 270 aim' store range kills if energy 95 > mr if sl: y 275 > nb if x 20 < cb if energy 60 > mr if collision crashs if y 275 > nb if x 20 < cb if energy 60 > mr if collision crashs if y 275 > nb if x 20 < cb if energy 60 > mr if collision crashs if y 275 > nb if x 20 < cb if energy 60 > mr if collision crashs if sl jump cb: 0 speedx' store 10 speedy' store y 280 > ReachBot if 180 aim' store SeekBot: y 285 > Up3 if y 260 > SeekBot1 if energy 95 > mr1 if y 285 > Up3 if y 260 > SeekBot1 if energy 95 > mr1 if y 285 > Up3 if y 260 > SeekBot1 if energy 95 > mr1 if y 285 > Up3 if y 260 > SeekBot1 if energy 95 > mr1 if 135 aim' store range kill3 if 180 aim' store range kill3 if 225 aim' store range kill3 if SeekBot jump SeekBot1: 2 speedy' store range 0 > Kill3 if y 280 > ReachBot if y 285 > Up3 if range 0 > Kill3 if y 280 > ReachBot if y 285 > Up3 if range 0 > Kill3 if y 280 > ReachBot if y 285 > Up3 if range 0 > Kill3 if y 280 > ReachBot if y 285 > Up3 if SeekBot1 jump ReachBot: 0 speedy' store x 45 < SeekCorR1 if -9 speedx' store y 285 > Up3 if x 45 < SeekCorR1 if -9 speedx' store y 285 > Up3 if x 45 < SeekCorR1 if -9 speedx' store y 285 > Up3 if x 45 < SeekCorR1 if -9 speedx' store y 285 > Up3 if 90 aim' store range kill3 if 0 aim' store range kill3 if 270 aim' store range kill3 if SeekCorR: y 285 > Up3 if range 0 > Kill3 if x 45 < SeekCorR1 if y 285 > Up3 if range 0 > Kill3 if x 45 < SeekCorR1 if y 285 > Up3 if range 0 > Kill3 if x 45 < SeekCorR1 if y 285 > Up3 if range 0 > Kill3 if x 45 < SeekCorR1 if 90 aim' store range kill3 if 0 aim' store range kill3 if 270 aim' store range kill3 if SeekCorR jump SeekCorR1: -2 speedx' store x 17 < ReachCorR if x 13 < Back3 if -2 speedx' store x 17 < ReachCorR if x 13 < Back3 if -2 speedx' store x 17 < ReachCorR if x 13 < Back3 if -2 speedx' store x 17 < ReachCorR if x 13 < Back3 if SeekCorR1 jump ReachCorR: x 13 < Back3 if 0 speedx' store 0 aim' store x 13 < Back3 if 0 speedx' store 0 aim' store x 13 < Back3 if 0 speedx' store 0 aim' store x 13 < Back3 if 0 speedx' store 0 aim' store drop drop main2: 0 aim' store range kill3a if 5 aim' store range kill5 if 10 aim' store range kill5 if 15 aim' store range kill5 if 20 aim' store range kill5 if 25 aim' store range kill5 if 30 aim' store range kill5 if 35 aim' store range kill5 if 40 aim' store range kill5 if 45 aim' store range killc if 50 aim' store range kill5 if 55 aim' store range kill5 if 60 aim' store range kill5 if 65 aim' store range kill5 if 70 aim' store range kill5 if 75 aim' store range kill5 if 80 aim' store range kill5 if 85 aim' store range killk if 90 aim' store range kill3a if 0 aim' store range kill3a if 3 aim' store range kill5 if 13 aim' store range kill5 if 18 aim' store range kill5 if 23 aim' store range kill5 if 28 aim' store range kill5 if 33 aim' store range kill5 if 38 aim' store range kill5 if 43 aim' store range killc if 48 aim' store range killc if 53 aim' store range kill5 if 58 aim' store range kill5 if 63 aim' store range kill5 if 68 aim' store range kill5 if 73 aim' store range kill5 if 78 aim' store range kill5 if 83 aim' store range kill5 if 88 aim' store range kill5 if 90 aim' store range kill3a if main2 jump Kill0: drop sync sync aim aim' sto range kill0k if na jump Kill0k: drop 150 fire' store na jump killn: 40 fire' store drop nl jump kills: 400 fire' store drop sl jump Kill3: 150 fire' store return kill4: 100 fire' store drop main2 jump kill5: range 50 < range 0 ! and kill3a if range 100 < range 0 ! and kill2a if 40 fire' store drop main2 jump kill2a: 100 fire' store drop main2 jump Kill3a: 150 fire' store drop main2 jump Killk: drop range 100 > main2 if 150 fire' store main2 jump killc: drop range 380 < kill5 if 45 aim' store 5 fire' store chronon 35 + d' store kill4c jump kill4c: 55 aim' store range kill5c if 35 aim' store range kill6c if chronon d > kill5 if kill4c jump Kill5c: 90 aim' store 150 fire' store drop main2 jump Kill6c: 0 aim' store 150 fire' store drop main2 jump Kill7c: 150 fire' store drop main2 jump Back: -2 speedx' store x 280 > ReachCor if Back jump Back2: -2 speedy' store y 270 < downb if Back jump Up: 2 speedy' store y 20 < ReachTop if Up jump Back3: 2 speedx' store x 50 < ReachCorR if Back3 jump Up3: -2 speedy' store y 285 < ReachBot if Up3 jump crash: range kill3 if 0 aim' store range kill3 if 90 aim' store range kill3 if 180 aim' store range kill3 if 270 aim' store range kill3 if 315 aim' store range kill3 if 135 aim' store range kill3 if 225 aim' store range kill3 if 45 aim' store return crashn: range kill3 if 0 aim' store range kill3 if 315 aim' store range kill3 if 45 aim' store range kill3 if 90 aim' store range kill3 if 135 aim' store range kill3 if 180 aim' store range kill3 if 225 aim' store range kill3 if 270 aim' store return crashs: range kill3 if 180 aim' store range kill3 if 135 aim' store range kill3 if 225 aim' store range kill3 if 270 aim' store range kill3 if 90 aim' store range kill3 if 45 aim' store range kill3 if 0 aim' store range kill3 if 315 aim' store return mr1: 82 mine' store return mr: 50 mine' store return